home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / music_utilities / pt141.dms / pt141.adf / ArexxExamples.lha / EP_Load_One_Module.dopus < prev    next >
Text File  |  1993-10-05  |  1KB  |  50 lines
  1. /* Eagleplayer-DOpus-Steuerung
  2.    (c) 1993 DEFECT
  3.  
  4.  - spielt übergebenen Song (Anwendung z.B. Doppelclick,siehe Filetypes bei Dopus)
  5.  
  6.  - lädt gegebenenfalls Eagleplayer (Pfad richtig anpassen,siehe unten !)
  7.  
  8.  - in Opus als "Executable" ("AmigaDOS") einbinden, asynchron starten ! (siehe
  9.    Handbuch), folgende Kommandozeile:  rx rexx:EP_Load_One_Module.dopus {f}
  10.  
  11. */
  12. parse arg filename
  13.  
  14. options results
  15.  
  16. if pos('rexx_EP',SHOW('Ports')) = 0 then
  17.  do
  18.  
  19.   Waittime = 60        /* 1 min Wartezeit, bei Bedarf ändern */
  20.  
  21.             /* Eagle laden , Pfad bei Bedarf ändern !!!!!! */
  22.   address COMMAND 'sys:Eagleplayer'
  23.  
  24.   testflag=0
  25.   time ('R')
  26.  
  27.   address 'DOPUS.1'        /* address 'DOPUS.1' */
  28.   toptext 'Attempting to Load Eagleplayer'
  29.  
  30.   do while (testflag=0) & (time('E') < Waittime)
  31.    if (pos('rexx_EP',SHOW('Ports')) ~= 0) then testflag =1
  32.   end
  33.  
  34.   if pos('rexx_EP',SHOW('Ports')) ~= 0 then
  35.     toptext 'Eagleplayer loaded'
  36.    else
  37.     do
  38.      toptext 'Couldn`t load Eagleplayer'
  39.      exit
  40.     end
  41. end
  42.  
  43. address 'rexx_EP'
  44.  
  45. LoadModule filename
  46. aha=result
  47. address 'DOPUS.1'
  48. toptext 'Eagleplayer: '||aha
  49. exit
  50.